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0.0 SCOPE 


SCOPE 


Ibis document Is Intended to be an aid In converting source code 
from FORTRAN IV Extended ss used on the CDC 7600 under the SCOPE 
operating system to FORTRAN 77 as used on the CRAY-1S/CRAY-XMP 
under COS. Although there are many similarities between CDC and 
CRAY FORTRAN, there are several differences Which can cause sig- 
nificant problems for the user who Is not experienced In the use 
of both. This document discusses many Important differences 
between these two versions of FORTRAN, and gives examples con- 
cerning their usage on both computers. 


The author would like to acknowledge the following people who 
contributed to this document: Donna Dlebert, Dave Saunders, and 

Gary Vlllere, all with Informatics General Corporation. 


This work was performed under contract number NAS2-11555, Ames 
Research Center, by Informatics General Corporation. 
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Section 1 

GENERAL FORTRAN DIFFERENCES BETWEEN 
THE CDC 7600 AND THE CRAY 

1.0 GENERAL FORTRAN DIFFERENCES BETWEEN THE CDC 7600 AND THE CRAY 

While there ere many similarities between CDC and CRAY FORTRAN, 
there are significant differences due to the fact that the CDC 7600 
uses FORTRAN IV Extended and the CRAY uses FORTRAN 77. This section 
will deal with some basic differences between the two. 

Diagrams of the general ordering of statements in CDC and CRAY pro- 
gram units are shown in figures 1-1 and 1-2, respectively. 


CDC 


60-bit words 

10 characters per word (max) 
Variable names: 1-7 letters 


Maximum of 3 dimensions for an 
array 

Max. array si~e » 131,071 words 


RANGE OF CONSTANTS: 

59 59 

Integer: -(2 - l)<-I<-2 - 1 

18 decimal digits 

-293 322 

Real: 10 <-|R|<-10 

14 decimal digits of 
precision 

-293 322 

Complex: 10 <-|C | <—10 

real 


Hollerith data 


No block IF structure is 
available 

Only one IMPLICIT statement 
allowed per program unit 


CRAY 


64-bit words 

8 characters per word (max) 

Variable names: 1-8 letters 

(ANSI FORTRAN standard provides 
for a maximum of 6 letters) 
Maximum of 7 dimensions for an 
array 

Max. array size ■ 4,194,304 words 


RANGE OF CONSTANTS: 

63 63 

Integer: -2 <«I<2 

19 decimal digits 

-2466 2466 

Real: 10 <«|r|<10 

14 decimal digits of 
precision 


Complex: 

-2466 2466 

10 <«|C |,|C |<10 

real lmag 

Hollerith data supported but 
CHARACTER data preferred 

Block IF structure Is available 


No limit imposed on the number of 
IMPLICIT statements allowed per 
program unit 
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PROGRAM, FUNCTION, SUBROUTINE, or BLOCK DATA statement 



Figure 1-1 Order of Statements In a CDC Program Unit 










ROGRAM, FUNCTION, SUBROUTINE, or BLOCK DATA statement 



Figure 1-2 Order of Statements in a CRAY Program Unit 












Section 2 


SPECIFIC FORTRAN DIFFERENCES 
2.0 SPECIFIC FORTRAN DIFFERENCES 

This section discusses CDC and CRAY differences In the usage of 
Intrinsic functions, progran units, arrays, LEVEL and MOVLEV 
statements, ENTRY statenents, and DO loops. 


2.1 INTRINSIC FUNCTIONS 


Most of the standard Intrinsic functions are Identical on both the 
CDC and the CRAY. The following functions are the exception. 


CDC 

No. 

Arg. 

Notes/ 

Limitations 

CRAY 

No. 

Arg. 

Notes/ 

Limitations 

SHIFT 

2 

OOArg <-60 
2 

SHIFT 

2 

None 



Arg <0 
2 

SHIFTL 

2 

Zero filled 



(0<«|Arg | <—60 for 
2 

both conditions) 


No equivalent 
right shift is 
available . 

MASK 

1 

0<«Arg<-60 
(Left justified) 

MASK 

1 

0<-Arg<-63 
(Left justified) 






64<-Arg<-128 
(Right justified) 

LOCF 

1 

None 

LOC 

1 

None 

RANF 

1 

None 

RANF 

0 

None 

+ 






RANGET 

1 

None 

RANGET 

0 

None 


+ 

This Is a utility subprogram rather than an Intrinsic function. 

It Is included here because It corresponds to an Intrinsic filiation. 


2.2 PROGRAM UNITS 


2.2.1 PROGRAM statement 

Although the PROGRAM statement used on the CDC 7600 may be used on 
the CRAY, the parameters specified after the program name are 
Ignored on the CRAY. The following examples show two CDC uses of 
the PROGRAM statement and the CRAY equivalent for each. 


Example 2-1. Associate INPUT and OUTPUT with logical unit numbers 
5 and 6, respectively. 

CDC usage: PROGRAM XAMPL1 ( INPUT , OUTPUT , TAPE5-INPUT , TAPE 6-OUTPUT) 

CRAY usage: PROGRAM XAMPL1 

or 

PROGRAM XAMPL1 ( INPUT .OUTPUT .TAPE5-INPUT .TAPE 6-OUTPUT) 

(Normally the user would assign filenames to logical 
unit numbers in the CCL. However, the CRAY has been 
set up at AMES to automatically assign logical unit 
numbers 5 and 6 to $IN and $0UT, respectively.) 


Example 2-2. Associate the local file MYFILE with logical unit 
number 1, which will be used as an input file to 
the program. 

CDC usage: Place the following command in the JCL before the 

program is executed. 

ATTACH .MYFILE .MYFILE , ID-XXX, CY-1 . 

The FORTRAN PROGRAM statement will be as follows: 

PROGRAM XAMPL2( INPUT, OUTPUT. TAPE 1 "MYFILE) 

CRAY usage: Place the following commands in the CCL before the 

program is executed. 

ACCESS , DN-MYFILE , PDN-MYFILE , ID-XXX, ED-1 . 
ASSIGN, DN-MYFILE.A-FT01 . 

The FORTRAN PROGRAM statement will follow the same 
format as in example 2-1. 

PROGRAM XAMPL2 
or 

PROGRAM XAM PL2 ( INPUT , OUTPUT , TAPE 1 -MYF ILE ) 


2.2.2 Statement Functions 


The STATEMENT FUNCTION la used In basically the same manner and 
subject to most of the ease restrictions on both the CDC 7600 and 
the CRAY However, two important differences have been noted and 
are described below. 


STATEMENT FUNCTION NAMES AND EXPRESSIONS 

CDC usage CRAY usage 


STATEMENT FUNCTION NAMES AND 
EXPRESSIONS MUST BE OF THE SAME 
TYPE. 

If a statement function Is declared 
as one type function but Is defined 
with a parameter of a different 
type, conversion Is automatically 
performed when the function Is 
evaluated. Therefore, the function 
may be referenced with a different 
tyoe of variable than that with 
which it was defined. 


Example 2-3a . 

A statement function is declared 
as INTEGER: 

INTEGER FCN 

Statement Function Definition: 
FCN(R) - R + I * 2 
Statement Function Reference: 


STATEMENT FUNCTION NAMES AND 
EXPRESSIONS CAN BE OF DIF- 
FERENT TYPES. 

Since a statement function 
name and expression can dif- 
fer in type, an error occurs 
If the function Is referenced 
with a different type varia- 
ble than that with which it 
was defined. Therefore, the 
function and variable with 
which it is referenced must 
agree in type. 


Example 2-3b. 

A statement function is 
declared as INTEGER: 

INTEGER FCN 

Statement Function Definition: 
FCN(J) - J + I * 2 
Stateoent Function Reference: 


NUMBER - FCN(N) + 1 


NUMBER - FCN(N) + 1 


STATEMENT FUNCTION DEFINITIONS 


CDC usage 

A statement function definition nay 
reference another statement function 
even If that function has not pre- 
viously been defined. 

Example 2-4a. 

Statement Function Definitions: 

MYFCNl(I) - I * MYFCN2(I) 
MYFCN2(I) - I + 1 

2.3 ARRAYS 

2. 3. 1 Dimension Declarators 
ACTUAL ARRAYS: 


CRAY usage 


A statement function defini- 
tion may reference another 
statement function only if 
the statement function being 
referenced has been previous- 
ly been defined. 

Example 2-4b. 

Statement Function Definitions: 

MYFCN2(I) - I + 1 
MYFCNl(I) - I * MYFCN2(I) 


On the CDC 7600, the value of a subscript (expressed as a constant) 
may never be zero or negative. On the CRAY, however, subscripts 
are allowed to be either zero or negative. Hence, the lower and 
upper bounds of an array nay be expressed in the DIMENSION state- 
ment on the CRAY (omission of the lower bound causes the default 
of 1 to be used). Examples follow. 

Example 2-5. Set the variable B equal to the third element of the 
six-element array A. 


CDC usage 

DIMENSION A(6) 
B « A(3) 


CRAY usage 

DIMENSION A(6) 

B - A(3) 
or 

DIMENSION A( 1 : 6) 
B - A(3) 
or 
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Dimension a(-2:3) 
b - A(0) 


ADJUSTABLE ARRAYS: 


Although the CDC 7600 does not ellow en array subscript to be 
zero, the coapiler does allow the value of zero to be passed to 
a subroutine as the dioension declarator of an adjustable array* 
However, if this array la then used in any calculations within 
that subroutine, an execution error will occur. 

On the CRAY, the dimension dedarator(a) must be defined such that 
the adjustable array will have at least one element in it. 

The following example gives a situation on the CDC as discussed 
above, and the changes necessary to modify that situation to work 
on the CRAY. 


CDC usage 

Example 2-6a. 

In calling program: 

CALL SUB1(A,0,0) 
tn subroutine SUB1: 
SUBROUTINE SUB1(A,N,M) 
DIMENSION M(N) 


CRAY usage 

Example 2-6b. 

In calling program: 

CALL SUB1(A, 1,0) 

In subroutine SUB1: 
SUBROUTINE SUB1(A,N,M) 
DIMENSION M(N) 


2.3.2 Type Declaration - Adjustable Arrays 

The CDC 7600 compiler allows a formal parameter used as the dimen- 
sion declarator of an adjustable array to be typed AFTER it is used 
to dimension the array. This causes a fatal error on the CRAY, 
however, since the CRAY requires that the type declaration statement 
for this variable occur BEFORE it is used to dimension the adjust- 
able array. The following example illustrates this difference. 

Example 2-7a. Example 2-7b. 

CDC usage CRAY usage 


SUBROUTINE MYSUB(A,R,M) 
DIMENSION M(R) 

INTEGER R 


SUBOUTINE MYSUB(A,R,M) 
INTEGER R 
DIMENSION M(R) 
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2.3.3 Array Usage 


References to multidimensional arrays may not be shortened on the 
GRAY as allowed on the CDC 7600. 


Example 2-8a. 
CDC usage 


DIMENSION ARRAY (2, 4) 
DO 10 1-1.8 
ARRAY (I) - 0.0 
10 CONTINUE 


Example 2-8b. 
CRAY usage 


DIMENSION ARRAY (2, 4) 
DO 10 1-1,8 
ARRAY(I.l) - 0.0 
10 CONTINUE 


2.4 LEVEL and MOVLEV Statements 

The LEVEL and MOVLEV statements associate variables with Large Core 
Memory (LCM) on the CDC 7600. There are no equivalent statements ca 
the CRAY, nor are any necessary due to the relatively large amount 
of memory available on the CRAY. All LEVEL statements should be 
deleted from CDC programs when converting to the CRAY. The MOVLEV 
statements may be retained on the CRAY If a dummy MOVLEV routine 
which just copies N words from one array to another Is added to the 
program. 


2.5 ENTRY Statement 

Differences In CDC and CRAY usage of entry points are discussed 
below. 

CDC usage CRAY usage 


No argument list (assumes In Subroutine Subprograms: 

the same calling sequence) Argument list Is optional. 

Arguments need not agree with 
those specified In FUNCTION, 
SUBROUTINE, or other ENTRY 
statements In the same sub~ 
program. 
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Function entry names oust 
agree in type with the name 
appearing In the FUNCTION 
statement of the aubprograa 
In which the ENTRY stateaent 
occurs. 


In Function Subprogram*: 

Argument list la required, 
even If It la null, e.g. 

ENTRY NAMEQ 

Function entry naaes aay differ 
In type froa the naae appearing 
In the FUNCTION stateaent of the 
aubprograa In which the ENTRY 
stateaent occurs. 


2.6 DO LOOPS 

A DO LOOP on both the CDC 7600 and the CRAY takes on the following 
fora: 

DO sn 1-m ,a ,n 
1 2 3 

where sn ■ terminal stateaent number 

a ■ Initial value 
1 

a * terminal value 
2 

m “ optional increment value (default ■ 1) 

3 

Differences between the CDC and CRAY usage of these parameters are 
discussed below. 

CDC usage CRAY usage 


1 must be the name of an 
Integer variable with a 
positive, non-zero value. 


1 may be the name of an integer, 
real, or double precision vari- 
able. 


m ,m ,m must each be the 
123 name of an integer 
variable with a 
positive, non-zero 
value such that 
17 

m+m ,m+m O 2 -1 
13 2 3 


m ,m ,m may be the names of In- 
123 teger, real, or double 
precision variables. 

If m ,m , and m are integers, 
1 2 3 

then m ,m ,m and (m - m + m ) 
1 2 3 2 1 3 

23 

must be O | 2 - ij 
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If necessary, a ,a , and/or a 
1 2 3 

are converted to the saae type 
variable as 1. 

a ,» , and a aay be positive or 
1 2 3 

negative. 

a aay not be zero. 

3 


+ 

If a > a the loop Is ex- 
1 2 ecuted at least 

once. 


the loop Is not executed 
unless the OifeJ paraaeter 
was specified on the CFT 
control stateaent. 


If a > a and a > 0 or 
1 2 3 

a < a and a < 0, then 
1 2 3 


+ 

This is a significant difference between the CDC and the CRAY 
treataent of DO LOOPS as it can cause values computed in a CDC 
program to differ from those output by its CRAY counterpart. 

In order to obtain the same results from both programs, it Is 
often necessary to force the CRAY to execute each DO LOOP at 
least once as on the CDC 7600. This can be done by compiling 
the program with the ON-J paraaeter as aentloned above. 


Section 3 


INPUT/OUTPUT 


3.0 INPUT/OUTPUT 

3.1 Utilities 

Use of the following I/O utilities on the CDC and the CRAY are 
coapared . 

CDC CRAY 


UNIT(lun) 

returns: 


-1. transfer successful 

+0. EOF encountered 

+1. Parity error encountered 


UNIT(lun) 

returns: 

>2.0 record partly read 
>1.0 transfer successful 
0.0 EOF or EOD encountered 
+1.0 Parity error encountered 
+2.0 Unit error encountered 


(Applies only to buffered Input/output operations, "lun" is the 
logical unit number assigned to the file being accessed.) 


EOF(lun) 


EOF(lun) 


returns: 


returns : 


0. no EOF encountered 
non-zero EOF encountered 


>1.G EOD encountered 
+1.0 EOF encountered 
0.0 otherwise 


(“lun" is the logical unit nuaber assigned to the file being 
accessed. Use of the END-xxx and ERR-xxx paraaeters on the 
READ stateaent are recoaaended Instead of this utility.) 


NW-LENGTH(lun) 

returns: 

Number of words transferred 
(NW) in previous BUFFER IN or 
READMS call to the file desig- 
nated by logical unit number 
"lun". 


NW-LENGTH(lun) 

returns: 

Nuaber of words transferred 
(NW) to or from unit "lun". 

If an EOF or EOD is read 
from logical unit number 
"lun" a zero is returned. 


(Applies only to buffered input/output operations.) 
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3.2 Format Specification* 

Following are brief descriptions of difference* between CDC and CRAY 
uaage of aeveral format specifications. 


CDC usage 

Gv.d w >» d + 6 

Ow Input field may contain 

a maximum of 20 octal digits. 

* and • edit descriptors 

allowed. 

* edit descriptor is not allowed. 

nH descriptor can be used for 
input and output. 

nX allowed. 

n(/> repeats / n times. 

Tn is the only tab specification 
available. 

BN and BZ editing are not 
available. 

S f SP, and SS editing are not 
available. 

V editing available. 

* edit descriptor available. 


CRAY usage 


Otf.d w > d + 4 

Ow Input field may contain a 
maximum of 22 octal digits. 

* and “ edit descriptors not 

allowed. 

* edit descriptor allowed. 

nH can only be used for output. 


uX not allowed. 

n/ repeats / n times. 

TLn and TRn are available in 
addition to Tb. 

BN and BZ editing available. 


S, SP, and SS editing available. 


V editing not available. 

- edit descriptor is not avail- 
able. (However, a function 
subroutine which provides 
some of the features of this 
descriptor is available from 
Gary Vlllere of Informatics 
General Corp. upon request.) 
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* 


* 


SYSTEM UTILITIES 


4.0 SYSTEM UTILITIES 

Differences between the CDC end 
system utilities ere compered . 

CDC 


CALL DATE(ldete) 

idate is returned as 
lOHbmm/dd/yyb, where b 
denotes a blank 


CALL JDATE(ldate) 

idate is returned as 
5Ryyddd 


CALL SECOND ( cput In) 

cputlm is returned as a real 
number accurate to two decimal 
places 


CALL TIME(itime) 

itime is returned as 
lOHbhh.ma.ss.b, where b 
denotes a blank 


CALL SYSTEM(ierrno,asg) 

lerrno « error number 
msg • execution time errror 
message issued by user 
(Hollerith constant) 


CALL REMARK(msg) 

msg * message Issued by user 
to be placed in day file 
(Hollerith constant <■ 
9 10-character words) 


CRAY versions of the following 


CRAY 


CALL DATE(idate) 

Idate is returned as 
8Hnm:dd:yy 


CALL JDATE(ldate) 

idate is returned as 
5Hyyddd 


CALL SECOND ( cput la) 
cputlm is returned as a real 
number 


CALL CLOCK(itime) 

itime is returned as 
8Hem:hh:s8 


CALL ABORT(asg) 


msg - execution time error 

message Issued by user 
(Hollerith constant <■ 
9 0-character words) 


CALL REMARK (msg) 

msg - message Issued by user 
to be placed in logfile 
(Hollerith constant <- 
8 8-character words) 
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d. 


+ ♦ 
M4tEM(3HSCM) or M4fEM( 3HLCH) 

M la returned aa the current 
field length 


+ 

M-REQMEM( 3HSCM ,MREQ ) or 

+ 

CALL REQMEM(3HSCM,MREQ) 
or 

+ 

M-REQMEM( 3HLCM ,MREQ ) or 

+ 

CALL RBQMEM(3HLCM,MRBQ) 

MRBQ » total field length 

requested by the user 
N is returned as the new 
field length received 


COS 1.11 Version : 

INTEGER WC.T.DEL 

DATA WC.T.M.L.DEL /5*0/ 

CALL MEMORY (WC.T.M.L.DEL) 

WC la returned as the 
current field length 

COS 1.1? torsion: 

INTEGER WC 

CALL MEMORY ('CURFL'.WC) 

WC is returned as the 
current field length 


COS 1.11 Version: 

INTEGER WC.T.DEL 
DATA M,L,DEL /3*0/ 

T - 1 

WC “ total field length 
desired 

CALL MEMORY(WC,T,M,L,DEL) 

L will be set if the job has 
received the maximum amount 
of memory allowed; 

An error will occur if wore 
memory is requested than is 
allowed. 

COS 1.12 Version: 

INTEGER WC 

WC ■ total field length 
desired 

CALL MEMORY('FL'.WC) 


+ 

This utility is only available from AMESLIB on the CDC 7600. It 
is accessed by the following statements on the JCL: 

ACCES S , A .AMESLIB , ID* AMESLIB . 

LIBRARY, A,*. 

For a further discrlptlon of this utility, see "Computational 
Division Oner's Bulletin No. 214" available from the Central 
Computational Division Document Center. 
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Section 5 


NASS STORAGE UTILITIES 


5.0 MASS STORAGE UTILITIES 

The ease storage INPUT/OUTPUT utilities discussed in this section 
are OPENMS, CLOSMS, REAMS, WRITMS, and STINDX. On the CDC 7600, 
these utilities are supplied by the systea. On the CRAY, however, 
these utilities oust be accessed through AMESLIB as follows: 

ACCESS , DN-RBADMS , PDN-READMS , ID-AMESLIB . 

LDR.LIB-READMS. 

Here the default dataset naae of $BLD is used, so the DM keyword 
is not specified. If the user specifies a dataset naae different 
than $BLD using the B keyword on the CFT control stateaent, then 
he auBt specify that dataset naae on the LDR stateaent using the 
DN keyword (LDR, DN-dataset , LIB-READMS. ) . 

Basically, these routines are used in the saae aanner on both 
aachlnes. However, two notable differences have been found in 
the usage of OPENMS. Discussions on these differences follow. 

CDC CRAY 


OPENMS allows the user to use 
a two -dimensional array for the 
defining the Master Index. It 
also allows the user to directly 
specify asstartlng location for 
this array in the call to OPENMS. 

Example 5-1. 


COMMON /INDEX/ INDEX(2,3),N 


a 

CALL OPENMS(LUN, INDEX( 1 ,N) , 
LENGTH, IT) 


where LUN, LENGTH, and IT are 
previously defined. 


OPENMS does not allow the aaster 
index array to be two-diaenslonal , 
nor doe 8 it allow a starting 
location to be directly specified 
in the call to OPENMS. 


Example 5-2. For example 5-1 to 
won on the CRAY do the following: 

COMMON /INDEX/ 1NDX1(2) ,INDX2(2) , 
INDX3(2),N 


e 

IF (N.EQ. 1) CALL OPENMS ( LUN, INDX1 , 
LENGTH, IT) 

IF (N.BQ.2) CALL OPENMS ( LUN , INDX2 , 
LENGTH, IT) 

IF (N.EQ. 3) CALL 0PENMS(LUN,INDX3, 
LENGTH, IT) 

where LUN, LENGTH, and IT are 
previously defined. 
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Section 6 

CONVERSION HAZARDS 
6.0 CONVERSION HAZARDS 


6.1 Subroutines - Agreement In Number of Arguments 

On the CDC 7600, if a user passes too aany arguaents to a subrou- 
tine the extra arguaents are Ignored. This is because the coapiler 
reserves address space in the CALLING prograa for the table con- 
taining the addresses of those arguaents. 


On the CRAY, however , the coapiler reserves the space for the argu- 
ment address table in the routine being CALLED. Therefore, the 
aaount of space reserved is only enough for the nuaber of formal 
parameters specified In the subroutine declaration. It is the 
CALLING routine, however, which fills up this table at execution 
tine. Thus, if a routine is called with too aany arguaents, the 
addresses of the extra arguaents will over-write the lower portion 
of the routine immediately PRECEDING the CALLED subroutine. This 
type of error is very difficult to trace as it often causes a 
section of code totally unrelated to the called subroutine to fall 
at execution tiae. 
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APPENDIX A 

DIFFERENCES IN CDC AND CRAY 
DEFAULT FILE NOMENCLATURE 


CDC 


CRAY 


JCL filenames: 


INPUT $IN 

OUTPUT $OUT 

OLDPL $PL 

NEW PL $NPL 

COMPILE $CPL 

LGO $BLD 


VAX <eor>,<eof> separators: 

ZXEOR /EOF 

ZZEOF /EOF 


| 


I. ; 

I 
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